function ValueOut=ComputeArticleType(ValueType,VecArticleType,ValueAbstract,ValueAbstract2)

ValueOut=0;
TestTemp=0;
n2=1;
while TestTemp==0&&n2<=size(ValueType,2)-3
    if strcmp(ValueType(1,n2:n2+3),'/T_/')==1
        n4=n2+4;
        n2=n2+3;
        while TestTemp==0&&n2<=size(ValueType,2)-3
            if strcmp(ValueType(1,n2:n2+3),'/T_/')==1
                n5=n2-1;
                ValueTypeTemp=ValueType(1,n4:n5);
                n1=1;
                while TestTemp==0&&n1<=size(VecArticleType,2)
                    if strcmpi(ValueTypeTemp,VecArticleType{1,n1})==1
                        TestTemp=1;
                        ValueOut=n1;
                    end
                    n1=n1+1;
                end
            end
            n2=n2+1;
        end
    end
    n2=n2+1;
end
if size(ValueAbstract,2)==0&&size(ValueAbstract2,2)==0
    ValueOut=0;
else
    if size(ValueAbstract,2)==0&&size(ValueAbstract2,2)>0
        if ValueAbstract2==0
            ValueOut=0;
        end
    else
        if size(ValueAbstract2,2)==0&&size(ValueAbstract,2)>0
            if ValueAbstract==0
                ValueOut=0;
            end
        end
    end
end
    